10 REM ***********************
20 REM *                     *
30 REM * CLS-DEMO 2 IN BASIC *
40 REM *                     *
50 REM ***********************
60 REM VARIABLEN ANALOG CLS-DEMO 1
70 :
110 GOSUB 210:REM TEXT AUF BILDSCHIRM
120 FS=55296:SP=40:FE=FS+SP
130 FB=PEEK(53281)
140 :   FOR X=0 TO 20
150 :        FOR Y=0TO24*40 STEP 40
160 :          POKE FS+Y+X,FB
170 :          POKE FE+Y-X,FB
180 :        NEXT Y
190 :   NEXT X
200 END
210 :
220 REM "SUBROUTINE ZUM TEXT SCHREIBEN"
230 FOR I=0TO22
240 PRINT"CLEAR-SCREEN-DEMO IN BASIC 64'ER 07 1992";:NEXT
250 RETURN